home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 4 / Amoszine 4 (Disk 1 of 3).adf / READERS_SOURCE.LHA / READERS_SOURCE / P_HUCKSTEPP / LinedText.AMOS / LinedText.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  504 b   |  20 lines
  1. Screen Open 0,320,256,2,Lowres
  2. Cls 0 : Curs Off : Flash Off : Cls 0
  3. Screen Open 1,320,256,2,Lowres
  4. Cls 0 : Curs Off : Flash Off : Cls 0
  5. Screen 0 : Palette 0,$FFF
  6. Pen 1 : Paper 0
  7. Locate 0,0 : Print "LINED TEXT PROCEDURE"
  8. Locate 1,1 : Print "PAUL HUCKSTEPP  1994"
  9. Screen 1 : Get Palette 0
  10. Screen Hide 0
  11. LINEDTEXT[0,80,0,25]
  12. Procedure LINEDTEXT[POSX,POSY,COUNT,LIMIT]
  13. For G=0 To LIMIT
  14. For F=0 To 256
  15. Screen 0
  16. If Point(F,COUNT)=1 Then Screen 1 : Plot POSY+F,POSX
  17. Next F
  18. Inc COUNT : Add POSX,2
  19. Next G
  20. End Proc